home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / pascalMode.tcl < prev    next >
Encoding:
Text File  |  1997-10-08  |  1018 b   |  36 lines  |  [TEXT/ALFA]
  1.  
  2. alpha::mode Pasc 1.0 dummyPascal {*.p } { thinkRefMenu toolboxRefMenu} {
  3.     set unixMode(pascal) {Pasc}
  4. }
  5.  
  6.  
  7. newPref v leftFillColumn {3} Pasc
  8. newPref f electricSemi {1} Pasc
  9. newPref v wordBreak {\w+} Pasc
  10. newPref f wordWrap {0} Pasc
  11. newPref v funcExpr {^[^ \t\(#\r/@].*\(.*\)$} Pasc
  12. newPref v wordBreakPreface {\W} Pasc
  13. newPref f electricTab {0} Pasc
  14. newPref f autoMark    0 Pasc
  15.  
  16. set pascCommentRegexp    {/\*(([^*]/)|[^*]|\r)*\*/}
  17. set pascPreRegexp        {^\#[\t ]*[a-z]*}
  18. set pascKeyWords        {
  19.     procedure function integer while with return var const unit type interface
  20.     packed record begin end boolean if else repeat for downto case to of mod 
  21.     goto file do then program or label div until set not in forward and
  22.     implementation unit
  23. }
  24. regModeKeywords -b \{ \} -c red -k blue Pasc $pascKeyWords
  25. unset pascKeyWords
  26.  
  27. hook::register saveHook modified "Pasc"
  28.  
  29. #================================================================================
  30.  
  31. proc dummyPascal {} {}
  32.  
  33. proc Pasc::MarkFile {} {
  34.     message "Not yet (someone write me)"
  35. }
  36.